home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
pascal
/
shazam.exe
/
INPUT1.VIR
< prev
next >
Wrap
Text File
|
1992-09-01
|
1KB
|
40 lines
{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
DATA
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
CONST
MaxRecs = 5 ;
FldCnt = 4 ;
CurRec : longint = 1 ;
TYPE
TDataRecord = array [ 1..FldCnt ] of
string ;
TDataArray = array [ 1..MaxRecs ] of
TDataRecord ;
VAR
DataArray : TDataArray ;
MyDialog : PDialog ;
{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
INIT
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
procedure TGenericApp.PostInit ;
{$IFDEF code}{$I input.src}{$ENDIF}
var
R : TRect ;
begin
FillChar ( DataArray , SizeOf ( DataArray ) , #0 ) ;
MyDialog := New ( PDialog , Init ( R , '' ) ) ;
{$IFDEF code}
CopyDialog ( MakeDialog ,
MyDialog ) ;
{$ELSE}
CopyDialog ( PDIALOG ( RezFile^.Get ( 'DIALOG_INPUT' ) ) ,
MyDialog ) ;
{$ENDIF}
Desktop^.Insert ( MyDialog ) ;
ForceEvent ( evCommand , cmFirst ) ; { to show Rec # }
end ;